home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / systems / atari / birkhahn-metafont-packed-disks / mf27-2_2e-disk2.zoo / inputs / handy.lzs / REVERSE.MF < prev   
Text File  |  1989-11-20  |  399b  |  21 lines
  1. % pattern_rev
  2. def pattern=
  3. def endchar=
  4. tracingequations:=1;
  5. cullit;
  6. picture phaseone; phaseone=currentpicture;
  7. currentpicture:=nullpicture;
  8. fill(0,-desc)--(w,-desc)--(w,cap)--(0,cap)--cycle;
  9. cullit;
  10. picture phasetwo;
  11. phasetwo=currentpicture-phaseone;
  12. currentpicture:=phasetwo;
  13. scantokens extra_endchar;
  14. chardx:=w;
  15. shipit;
  16. if displaying>0:  showit; fi
  17. endgroup;
  18. enddef;
  19. enddef;
  20.  
  21.